home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / ingm.dir / 00012_qtSprite.ls < prev    next >
Encoding:
Text File  |  2001-03-01  |  611 b   |  32 lines
  1. property meSprite, meMember, gm, xloaded
  2. global sessionObject, monkey
  3.  
  4. on beginSprite me
  5.   xloaded = 0
  6.   meSprite = sprite(me.spriteNum)
  7.   meMember = meSprite.member
  8.   gm = the frameLabel
  9. end
  10.  
  11. on exitFrame me
  12.   if meSprite.movieRate = 0 then
  13.     if xloaded = 0 then
  14.       meSprite.movieRate = 1
  15.       xloaded = 1
  16.     else
  17.       goOn(me)
  18.     end if
  19.   end if
  20. end
  21.  
  22. on goOn me
  23.   if monkey.monkeyRunning = 0 then
  24.     if meSprite.movieRate = 0 then
  25.       sessionObject.introSoundTrig = 1
  26.       xFrame = string(sessionObject.getFrame(gm))
  27.       monkey.traceMonkey()
  28.       go(xFrame, "gm" & gm)
  29.     end if
  30.   end if
  31. end
  32.